home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 June / 64er_Magazin_93-06_1993_Markt__Technik_de_Side_B.d64 / listing 3-3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  830 b   |  24 lines
  1. 10 rem ***  arpeggio (akkord-sim.)
  2. 11 :
  3. 12 :sp=1     :rem arpeggio-zeit(time)
  4. 13 :a1=7492  :rem note 1     (arp #1)
  5. 14 :a2=8911  :rem note 2     (arp #2)
  6. 15 :a3=11227 :rem note 3     (arp #3)
  7. 16 :a4=14986 :rem note 4     (arp #4)
  8. 17 :m=0      :rem 3 (=0) oder 4 (=1) finger acc.
  9. 19 :
  10. 20 rem * ton einschalten
  11. 21 :
  12. 22 s=54272:pokes+4,8:pokes+24,15 :rem  volle lautstaerke
  13. 23 pokes+6,255:pokes+5,0:pokes+4,33 :rem  adsr und saegezahn-wellenform setzen
  14. 24 fori=0to10:next:pokes+4,32 :rem  ton auf ausklingen setzen
  15. 29 :
  16. 40 rem * arpeggio !
  17. 41 :
  18. 43 g=g+1 :rem  zaehler fuer arpeggio-nummer erhoehen
  19. 44 ifg=sp*1thenpokes,a1and255:pokes+1,a1/256 :rem 1.tonhoehe poken (arp.#1)
  20. 45 ifg=sp*2thenpokes,a2and255:pokes+1,a2/256 :rem 2.tonhoehe poken (arp.#2)
  21. 46 ifg=sp*3thenpokes,a3and255:pokes+1,a3/256:ifm=0theng=0:rem 3.ton
  22. 47 ifg=sp*4thenpokes,a4and255:pokes+1,a4/256:g=0:rem 4.ton und arp. neu starten
  23. 60 goto43 :rem nochmal
  24.